home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_d
/
rtdc.zip
/
TESTUNI2.DFM
/
TESTUNI2.txt
Wrap
Text File
|
1995-09-03
|
3KB
|
183 lines
object Form1: TForm1
Left = 328
Top = 169
AutoScroll = False
Caption = 'Form1'
ClientHeight = 306
ClientWidth = 414
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
Scaled = False
OnCreate = FormCreate
TextHeight = 16
object Label3: TLabel
Left = 124
Top = 199
Width = 61
Height = 13
Caption = '00:00:00'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 299
Top = 199
Width = 62
Height = 13
Caption = '00:00:00'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Bevel1: TBevel
Left = 8
Top = 46
Width = 393
Height = 123
end
object Label7: TLabel
Left = 26
Top = 59
Width = 80
Height = 16
Caption = 'Recordcount:'
end
object Label8: TLabel
Left = 111
Top = 59
Width = 65
Height = 13
AutoSize = False
Caption = '0'
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 414
Height = 41
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 8
Width = 43
Height = 16
Caption = 'Source'
end
object Label2: TLabel
Left = 200
Top = 8
Width = 67
Height = 16
Caption = 'Destination'
end
object ComboBox1: TComboBox
Left = 56
Top = 8
Width = 129
Height = 24
ItemHeight = 16
TabOrder = 0
OnChange = ComboBox1Change
end
object Edit1: TEdit
Left = 280
Top = 8
Width = 97
Height = 24
TabOrder = 1
OnChange = Edit1Change
end
end
object Button1: TButton
Left = 20
Top = 192
Width = 93
Height = 33
Caption = 'TBatchMove'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button1Click
end
object Button2: TButton
Left = 195
Top = 192
Width = 94
Height = 33
Caption = 'TRtDbCopy'
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 294
Top = 99
Width = 79
Height = 13
Caption = 'Mappings'
TabOrder = 2
end
object RadioGroup1: TRadioGroup
Left = 24
Top = 88
Width = 249
Height = 65
Caption = 'CopyMode'
Columns = 2
Items.Strings = (
'Append'
'Update'
'AppendUpdate'
'Delete'
'Copy')
TabOrder = 1
end
object Database1: TDatabase
DatabaseName = 'TEST'
LoginPrompt = False
Left = 16
Top = 256
end
object Table1: TTable
DatabaseName = 'TEST'
Left = 48
Top = 256
end
object Table2: TTable
DatabaseName = 'TEST'
Left = 80
Top = 256
end
object BatchMove1: TBatchMove
Destination = Table2
Mode = batCopy
Source = Table1
Left = 112
Top = 256
end
object RtDbCopy1: TRtDbCopy
Destination = Table2
Mode = batCopy
Source = Table1
Transaction = False
Left = 144
Top = 256
end
end